home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / cdity / ModePro4_33.lha / ModePro / InstallModePro < prev    next >
Text File  |  1997-07-26  |  7KB  |  223 lines
  1. ; Install script for ModePro
  2.  
  3.  
  4. ( set ModePro "ModePro")
  5. ( set ModeProPrefs "ModeProPrefs")
  6.  
  7. ;-------------------------------------------------------------
  8. ( set Yes "Yes")
  9. ( set No  "No")
  10.  
  11. ;-------------------------------------------------------------
  12. ( set Def_DaemonPath_WB      ( expandpath "Sys:WBStartup/" ) )
  13. ( set Def_DaemonPath_COM     ( expandpath "Sys:Tools/Commodities/" ) )
  14. ( set Def_PrefsPath          ( expandpath "Sys:Prefs/" ) )
  15.  
  16. ;-------------------------------------------------------------
  17. ( set AskAutoRunMP      "Automatically run ModePro when the computer boots?" )
  18. ( set AskAutoRunMPHelp  "HHHEEELLLPPPP!!!!" )
  19.  
  20.  
  21. ;-------------------------------------------------------------
  22. ( set AskStartHow               "How would you like ModePro started?\nPress 'Help' for more info.")
  23. ( set OptStartWBStartup         "Put ModePro in the WBStartup drawer")
  24. ( set OptStartUserStartup       "Start ModePro in the Startup-Sequence")
  25. ( set AskStartHowHelp           "ModePro can be started automatically on bootup two ways.  The simplest method is by placing ModePro in the WBStartup drawer.  The second way is to run ModePro from the s:User-Startup file, doing so allows ModePro to promote the Workbench screen." )
  26.  
  27. ;-------------------------------------------------------------
  28. ( set AskPrefsPath      "ModeProPrefs allows you to edit ModePro's promotion options.  Where would you like to put the preferences editor?" )
  29. ( set AskPrefsPathHelp  ("Generally this should be in the %s drawer." Def_PrefsPath) )
  30. ( set AskDaemonPath     "This is the suggested path for ModePro.  Change it if you wish." ) 
  31.  
  32. ;-------------------------------------------------------------
  33. ( set ToolTypeOptions  "Various options" )
  34.  
  35. ( set AskCxPopKey    "Enter the hotkey that pops up the preferences interface." )
  36. ( set AskCxPri       "Enter the value of ModePro's commodity priority." )  
  37. ( set AskCxPopup     "Would you like ModePro to popup the interface each time it is started.")
  38.  
  39. ( set AskDeleteOld   "There appears to be another copy ModePro installed, delete it?")
  40.  
  41. ;-----------------------------------------------------------------------
  42. ( set IM        "Installing ModePro...")
  43.  
  44. ( set AskLang   "ModePro features a localized interface.  Which languages would you like to install  A few catalogs are not complete.")
  45. ( set OptLangDeutsch   "Deutsch" )
  46. ( set OptLangFrancais  "Français" )
  47. ( set OptLangIslenska  "Íslenska" )
  48. ( set OptLangItaliano  "Italiano" )
  49. ( set OptLangNorsk     "Norsk"    )
  50. ( set OptLangPolski    "Polski"   )
  51. ( set OptLangRussian   "Russian"  )
  52. ( set OptLangSvenska   "Svenska"  )
  53.  
  54.  
  55. ( set SrcCatPath "catalogs/%s" )
  56. ( set DestCatPath "locale:catalogs/%s" )
  57.  
  58. ;-----------------------------------------------------------------------
  59.  
  60. ( set AskModifyUS     "The options you have chosen require the s:user-startup file to be modified." )
  61. ( set AskModifyUSHelp "The options you have chosen require the s:user-startup file to be modified." )
  62.  
  63.  
  64. ;-------- BEGIN ----------
  65.  
  66. ( set AutoRun ( askbool (prompt  AskAutoRunMP ) 
  67.                         (help    AskAutoRunMPHelp ) 
  68.                         (default 0) 
  69.               )  
  70. )
  71.  
  72. ( if AutoRun 
  73.     (
  74.         ( set AutoHow ( askchoice (prompt   AskStartHow)
  75.                                   (help     AskStartHowHelp)
  76.                                   (choices  OptStartWBStartup OptStartUserStartup)
  77.                                   (default  1)
  78.                        )
  79.         )
  80.         ( if AutoHow
  81.             (
  82.                 (set daemonpath Def_DaemonPath_COM)
  83.                 (set deldaemonpath Def_DaemonPath_WB)
  84.             )
  85.             (
  86.                 (set daemonpath Def_DaemonPath_WB)
  87.                 (set deldaemonpath Def_DaemonPath_COM)
  88.             )
  89.         )   
  90.     )
  91.     (
  92.         (set daemonpath Def_DaemonPath_COM)
  93.         (set deldaemonpath Def_DaemonPath_WB)
  94.     )
  95. )
  96.  
  97.  
  98.  
  99. (set daemonpath ( askdir (prompt AskDaemonPath)
  100.                           (help "Cow")
  101.                           (default daemonpath)
  102. ) )
  103.  
  104. (set prefspath ( askdir (prompt  AskPrefsPath)
  105.                                (help    AskPrefsPathHelp)
  106.                                (default Def_PrefsPath)
  107.                       ) 
  108. )
  109.  
  110. ( set ModeProPrefsCommand ( tackon ( prefspath) 
  111.                                    ( "ModeProPrefs") 
  112.                           ) 
  113. )
  114.  
  115. ( set cxpopkey ( askstring  (prompt AskCxPopKey)
  116.                             (help "None")
  117.                             (default "lamiga p")
  118.                )
  119. )
  120.  
  121. ( set cxpri ("%ld" (asknumber  (prompt AskCxPri)
  122.                                (help "None")
  123.                                (default 5)
  124.                    )
  125.             )
  126. )
  127.  
  128. ( set cxpopup (askchoice (prompt AskCxPopup) 
  129.                          (help "Sorry!") 
  130.                          (default 0) 
  131.                          (choices "No" "Yes") 
  132.               )
  133. )
  134.  
  135. ;-Set the tooltypes----------------------------------------------------
  136.  
  137. (tooltype (dest ModePro)
  138.           (settooltype "CX_POPKEY" cxpopkey)
  139.           (settooltype "CX_POPUP" (select cxpopup No Yes) )
  140.           (settooltype "CX_PRIORITY" cxpri )
  141.           (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
  142. )
  143.  
  144. ;--------------------------------------------------------------
  145.  
  146.  
  147. (set oldmp ( tackon (deldaemonpath) 
  148.                     ("ModePro")
  149.            )
  150. )
  151.  
  152. (if (exists oldmp)
  153.   (
  154.     (if (askchoice (prompt AskDeleteOld ) (help "Ha ha") (default 1) (choices "No" "Yes") )
  155.       (
  156.         (delete oldmp (prompt "Deleting"))
  157.         (delete (cat (oldmp) (".info") ) (prompt "Deleting") )
  158.       )
  159.     ) 
  160.   )
  161. )
  162.     
  163.  
  164. (copyfiles (prompt IM)
  165.            (help "Why did you do that?")
  166.            (source ModePro)
  167.            (infos)
  168.            (dest daemonpath)
  169. )
  170.  
  171. (set @default-dest daemonpath)
  172.  
  173. (copyfiles (prompt IM)
  174.            (help "Hey, what are you doing?")
  175.            (source ModeProPrefs)
  176.            (infos)
  177.            (dest prefspath)
  178. )
  179.  
  180. (if (AND AutoRun AutoHow)
  181.     ( 
  182.         (startup "ModePro"
  183.                  (prompt  AskModifyUS )
  184.                  (help    AskModifyUSHelp )
  185.                  (command (cat "Run <>NIL: ModePro" ) )
  186.         )
  187.     )
  188.     (
  189.        (startup "ModePro"
  190.                  (prompt  AskModifyUS )
  191.                  (help    AskModifyUSHelp )
  192.                  (command ";Don't run ModePro from User-Startup")
  193.   
  194.         )
  195.     )
  196. )
  197.  
  198. (set WhichLang (askoptions (prompt AskLang)
  199.                            (help AskLang)
  200.                            (choices OptLangDeutsch OptLangFrancais OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska)
  201.                            (default 0) 
  202. )              )
  203.  
  204. (set optnumber 0)
  205.  
  206. ( while ( < optnumber 8 )
  207.   (set flag (BITAND (shiftright WhichLang optnumber) 1) )
  208.   (debug optnumber flag)
  209.   (if flag
  210.     (
  211.       (set lang     ( select optnumber OptLangDeutsch OptLangFrancais OptLangIslenska OptLangItaliano OptLangNorsk OptLangPolski OptLangRussian OptLangSvenska) )
  212.       (debug lang)
  213.       (set srcpath ( SrcCatPath  lang ) )
  214.       (debug srcpath)
  215.       (set dstpath ( DestCatPath lang ) )
  216.       (debug dstpath) 
  217.       (makedir dstpath)
  218.       (copyfiles  (prompt IM) (help "Why did you do that?") (source srcpath) (dest dstpath) (all) )
  219.     )
  220.   )
  221.   (set optnumber (+ optnumber 1) )
  222. )
  223.